home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / slags2.z / slags2
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAAGGGGSSSS2222((((3333FFFF))))                                                          SSSSLLLLAAAAGGGGSSSS2222((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLAGS2 - compute 2-by-2 orthogonal matrices U, V and Q, such that if (
  10.      UPPER ) then   U'*A*Q = U'*( A1 A2 )*Q = ( x 0 )  ( 0 A3 ) ( x x ) and
  11.      V'*B*Q = V'*( B1 B2 )*Q = ( x 0 )  ( 0 B3 ) ( x x )  or if ( .NOT.UPPER )
  12.      then   U'*A*Q = U'*( A1 0 )*Q = ( x x )  ( A2 A3 ) ( 0 x ) and  V'*B*Q =
  13.      V'*( B1 0 )*Q = ( x x )  ( B2 B3 ) ( 0 x )  The rows of the transformed A
  14.      and B are parallel, where   U = ( CSU SNU ), V = ( CSV SNV ), Q = ( CSQ
  15.      SNQ )  ( -SNU CSU ) ( -SNV CSV ) ( -SNQ CSQ )  Z' denotes the transpose
  16.      of Z
  17.  
  18. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  19.      SUBROUTINE SLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, SNV,
  20.                         CSQ, SNQ )
  21.  
  22.          LOGICAL        UPPER
  23.  
  24.          REAL           A1, A2, A3, B1, B2, B3, CSQ, CSU, CSV, SNQ, SNU, SNV
  25.  
  26. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  27.      SLAGS2 computes 2-by-2 orthogonal matrices U, V and Q, such that if (
  28.      UPPER ) then
  29.  
  30.  
  31.  
  32. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  33.      UPPER   (input) LOGICAL
  34.              = .TRUE.: the input matrices A and B are upper triangular.
  35.              = .FALSE.: the input matrices A and B are lower triangular.
  36.  
  37.      A1      (input) REAL
  38.              A2      (input) REAL A3      (input) REAL On entry, A1, A2 and A3
  39.              are elements of the input 2-by-2 upper (lower) triangular matrix
  40.              A.
  41.  
  42.      B1      (input) REAL
  43.              B2      (input) REAL B3      (input) REAL On entry, B1, B2 and B3
  44.              are elements of the input 2-by-2 upper (lower) triangular matrix
  45.              B.
  46.  
  47.      CSU     (output) REAL
  48.              SNU     (output) REAL The desired orthogonal matrix U.
  49.  
  50.      CSV     (output) REAL
  51.              SNV     (output) REAL The desired orthogonal matrix V.
  52.  
  53.      CSQ     (output) REAL
  54.              SNQ     (output) REAL The desired orthogonal matrix Q.
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.